inherited FrmPesagem: TFrmPesagem
  Caption = 'Pesagem'
  ClientHeight = 392
  ClientWidth = 562
  PixelsPerInch = 96
  TextHeight = 13
  inherited pnlCima: TPanel
    Width = 562
    object Label1: TLabel
      Left = 7
      Top = 14
      Width = 35
      Height = 13
      Caption = 'Pessoa'
    end
    object txtCodigo: TEditEnh
      Left = 46
      Top = 12
      Width = 95
      Height = 19
      Text = '0'
      Alignment = taRightJustify
      Button.Key1 = 'F12'
      Button.Style = eebEllipsis
      OnButton1 = txtCodigoButton1
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
      OnEnter = txtCodigoEnter
      OnExit = txtCodigoExit
      EditMaskEx = '::NM::!9999999990;0;0;0'
    end
    object txtNome: TEditEnh
      Left = 143
      Top = 12
      Width = 337
      Height = 19
      TabStop = False
      ReadOnly = True
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 1
      Color = clBtnFace
    end
    object btnVisualizar: TBitBtn
      Left = 482
      Top = 12
      Width = 75
      Height = 19
      Caption = 'Visualizar'
      TabOrder = 2
      OnClick = btnVisualizarClick
    end
  end
  inherited pnlBaixo: TPanel
    Width = 562
    Height = 314
    object Label17: TLabel
      Left = 348
      Top = 8
      Width = 23
      Height = 13
      Caption = 'Data'
    end
    object Label15: TLabel
      Left = 430
      Top = 8
      Width = 24
      Height = 13
      Caption = 'Peso'
    end
    object Label14: TLabel
      Left = 6
      Top = 8
      Width = 27
      Height = 13
      Caption = 'Altura'
    end
    object Label2: TLabel
      Left = 58
      Top = 8
      Width = 24
      Height = 13
      Caption = 'Peso'
    end
    object Label16: TLabel
      Left = 162
      Top = 8
      Width = 24
      Height = 13
      Caption = 'Meta'
    end
    object Label3: TLabel
      Left = 266
      Top = 8
      Width = 53
      Height = 13
      Caption = 'Data In'#237'cio'
    end
    object Label18: TLabel
      Left = 110
      Top = 8
      Width = 28
      Height = 13
      Caption = 'I.M.C.'
    end
    object Label21: TLabel
      Left = 214
      Top = 8
      Width = 50
      Height = 13
      Caption = 'Peso Ideal'
    end
    object Grid: TwwDBGrid
      Left = 6
      Top = 48
      Width = 553
      Height = 260
      ControlType.Strings = (
        'Imagem;ImageIndex;Original Size')
      Selected.Strings = (
        'Imagem'#9'2'#9' '
        'Data'#9'17'#9'Data'
        'Peso'#9'21'#9'Peso'
        'Perda'#9'21'#9'Perda'
        'Total'#9'21'#9'Total')
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 1
      ShowHorzScrollBar = True
      DataSource = dsMem
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowCellHint]
      PopupMenu = PopupMenu
      TabOrder = 0
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
      OnCalcCellColors = GridCalcCellColors
      ImageList = DMGeral.imgGrid
    end
    object txtData: TwwDBDateTimePicker
      Left = 348
      Top = 24
      Width = 82
      Height = 19
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Epoch = 1950
      ShowButton = True
      TabOrder = 1
      UnboundDataType = wwDTEdtDate
      OnExit = txtDataExit
    end
    object txtPesos: TEditEnh
      Left = 430
      Top = 24
      Width = 50
      Height = 19
      Text = '0,000'
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 2
      EditMaskEx = '::NM::!999],999],999],990!.000;0;0;0'
    end
    object txtAltura: TEditEnh
      Left = 6
      Top = 24
      Width = 50
      Height = 19
      TabStop = False
      Text = '0,00'
      ReadOnly = True
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 3
      Color = clBtnFace
      EditMaskEx = '::NM::!999],999],999],990!.00;0;0;0'
    end
    object txtPeso: TEditEnh
      Left = 58
      Top = 24
      Width = 50
      Height = 19
      TabStop = False
      Text = '0,000'
      ReadOnly = True
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 4
      Color = clBtnFace
      EditMaskEx = '::NM::!999],999],999],990!.000;0;0;0'
    end
    object txtMeta: TEditEnh
      Left = 162
      Top = 24
      Width = 50
      Height = 19
      TabStop = False
      Text = '0,000'
      ReadOnly = True
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 5
      Color = clBtnFace
      EditMaskEx = '::NM::!999],999],999],990!.000;0;0;0'
    end
    object txtDataInicio: TwwDBDateTimePicker
      Left = 266
      Top = 24
      Width = 82
      Height = 19
      TabStop = False
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Color = clBtnFace
      Epoch = 1950
      ReadOnly = True
      ShowButton = True
      TabOrder = 6
      UnboundDataType = wwDTEdtDate
    end
    object txtIMC: TEditEnh
      Left = 110
      Top = 24
      Width = 50
      Height = 19
      TabStop = False
      Text = '0,000'
      ReadOnly = True
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 7
      Color = clBtnFace
      EditMaskEx = '::NM::!999],999],999],990!.000;0;0;0'
    end
    object btnConfirmar: TBitBtn
      Left = 483
      Top = 24
      Width = 75
      Height = 19
      Caption = 'Confirmar'
      TabOrder = 8
      OnClick = btnConfirmarClick
    end
    object txtPesoIdeal: TEditEnh
      Left = 214
      Top = 24
      Width = 50
      Height = 19
      TabStop = False
      Text = '0,000'
      ReadOnly = True
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 9
      Color = clBtnFace
      EditMaskEx = '::NM::!999],999],999],990!.000;0;0;0'
    end
  end
  inherited JvFooter1: TJvFooter
    Top = 355
    Width = 562
    inherited btnGravar: TJvFooterBtn
      Left = 242
      OnClick = btnGravarClick
    end
    inherited btnCancelar: TJvFooterBtn
      Left = 322
      OnClick = btnCancelarClick
    end
    inherited btnExcluir: TJvFooterBtn
      Left = 402
      OnClick = btnExcluirClick
    end
    inherited btnFechar: TJvFooterBtn
      Left = 480
    end
  end
  inherited CorFoco: TCorFoco
    Left = 346
    Top = 147
  end
  object dsMem: TDataSource
    DataSet = Mem
    Left = 144
    Top = 145
  end
  object Mem: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'Imagem'
        DataType = ftInteger
      end
      item
        Name = 'Acao'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Data'
        DataType = ftDate
      end
      item
        Name = 'Peso'
        DataType = ftFloat
      end
      item
        Name = 'Perda'
        DataType = ftFloat
      end
      item
        Name = 'Total'
        DataType = ftFloat
      end>
    IndexDefs = <
      item
        Name = 'IDX'
        Fields = 'Data'
      end>
    IndexName = 'IDX'
    Params = <>
    StoreDefs = True
    OnCalcFields = MemCalcFields
    Left = 200
    Top = 145
    Data = {
      780000009619E0BD010000001800000006000000000003000000780006496D61
      67656D0400010000000000044163616F01004900000001000557494454480200
      0200010004446174610400060000000000045065736F08000400000000000550
      65726461080004000000000005546F74616C08000400000000000000}
    object MemImagem: TIntegerField
      DisplayLabel = ' '
      DisplayWidth = 2
      FieldKind = fkCalculated
      FieldName = 'Imagem'
      Calculated = True
    end
    object MemData: TDateField
      DisplayWidth = 17
      FieldName = 'Data'
    end
    object MemPeso: TFloatField
      DisplayWidth = 21
      FieldName = 'Peso'
      DisplayFormat = '###,###,###0.000'
    end
    object MemPerda: TFloatField
      DisplayWidth = 21
      FieldName = 'Perda'
      DisplayFormat = '###,###,###0.000'
    end
    object MemTotal: TFloatField
      DisplayWidth = 21
      FieldName = 'Total'
      DisplayFormat = '###,###,###0.000'
    end
    object MemAcao: TStringField
      DisplayWidth = 1
      FieldName = 'Acao'
      Visible = False
      Size = 1
    end
  end
  object PopupMenu: TPopupMenu
    OnPopup = PopupMenuPopup
    Left = 256
    Top = 145
    object Edt: TMenuItem
      Caption = 'Editar'
      OnClick = EdtClick
    end
    object Exc: TMenuItem
      Caption = 'Excluir'
      OnClick = ExcClick
    end
    object IncNov: TMenuItem
      Caption = 'Incluir Novamente'
      OnClick = IncNovClick
    end
  end
end
